home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 526-550 / disk_536 / wfile / src.lzh / strpos.c < prev    next >
Text File  |  1991-08-23  |  916b  |  36 lines
  1. /***************************************************************************
  2. * strpos.c: returns index of string2 in string1 or -1 if not found       *
  3. *                                       *
  4. * created: Oct-90 Mtwx                               *
  5. ***************************************************************************/
  6.  
  7. /* --------------------- source code revisions, tracked by RCS ---------- */
  8.  
  9. /* $Header: Hard0:C-Compiler/src/wfile/rcs/strpos.c,v 1.0 91/08/12 20:27:15 Mtwx Exp $ */
  10. /* $Log:    strpos.c,v $
  11.  * Revision 1.0  91/08/12  20:27:15  Mtwx
  12.  * Initial revision
  13.  *  */
  14.  
  15. /* ------------------------------- routines ----------------------------- */
  16.  
  17. int strpos(char *s1, char *s2)
  18. {
  19.   register int i;
  20.   int n,pos=0,flag=0;
  21.  
  22.   if(strlen(s2) > strlen(s1)) return -1;
  23.   for(i=0;i<strlen(s1)-strlen(s2)+1;i++)
  24.   {
  25.     n=strncmp(&s1[i],s2,strlen(s2));
  26.     if(n==0)
  27.     {
  28.       pos=i;
  29.       flag=1;
  30.       break;
  31.     }
  32.   }
  33.   if(!flag) pos=-1;
  34.   return pos;
  35. }
  36.